unit PessoaFisicaDM;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ZDataset, ZSqlUpdate, ZSequence, MainDM, db, QueryConditions, DataRecord;

type

  { TPessoaFisicaData }

  TPessoaFisicaData = class(TMainDataModule)
    PessoaFisicaDatasource: TDatasource;
    PessoaFisicaZQuery: TZQuery;
    PessoaFisicaZQuerycpf: TStringField;
    PessoaFisicaZQuerydata_nascimento: TDateField;
    PessoaFisicaZQueryid_pessoa_fisica: TLargeintField;
    PessoaFisicaZQuerynome_mae: TStringField;
    PessoaFisicaZQueryrg_numero: TStringField;
    PessoaFisicaZUpdate: TZUpdateSQL;
    procedure DataModuleCreate(Sender: TObject);
    /// Abre o DataSet
    procedure OpenDataSet(); override;
    /// Fecha o DataSet
    procedure CloseDataSet(); override;
    /// Realiza busca
    /// @param(Condicoes são as condições para a busca)
    /// @param(Tabela é a tabela no banco de dados)
    procedure Search(Condicoes: TQueryConditions; Tabela: string); override;
end;

var
  PessoaFisicaData: TPessoaFisicaData;

implementation

uses ConnectionDM;

{ TPessoaFisicaData }

procedure TPessoaFisicaData.DataModuleCreate(Sender: TObject);
begin
      MainDataSet := PessoaFisicaZQuery;
end;

procedure TPessoaFisicaData.OpenDataSet;
begin
    ConnectionData.EmptyQuery(PessoaFisicaZQuery, 'pessoa_fisica');
end;

procedure TPessoaFisicaData.CloseDataSet;
begin
   PessoaFisicaZQuery.Close();
end;

procedure TPessoaFisicaData.Search(Condicoes: TQueryConditions; Tabela: string);
begin
   ConnectionData.OpenQueryConditions(PessoaFisicaZQuery, Tabela, Condicoes);
end;

initialization
  {$I pessoafisicadm.lrs}

end.

